From 62ebafeae751fe130d1ac27c55930385ccce2757 Mon Sep 17 00:00:00 2001
From: Jeremy Bryant <jb@jeremybryant.net>
Date: Wed, 3 Apr 2024 21:13:24 +0100
Subject: [PATCH] * which-key.el (which-key--create-pages-1): Use cl-decf for
 clarity

---
 which-key.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/which-key.el b/which-key.el
index decde2d10bd..8837eefd43c 100644
--- a/which-key.el
+++ b/which-key.el
@@ -2077,7 +2077,7 @@ should be minimized."
       ;; simple search for a fitting page
       (while (and (> available-lines min-lines)
                   (not found))
-        (setq available-lines (- available-lines 1)
+        (setq available-lines (cl-decf available-lines)
               prev-result result
               result (which-key--list-to-pages
                       keys available-lines available-width)
-- 
2.30.2